home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 7 / Gekikoh Dennoh Club Vol. 7 (Japan).7z / Gekikoh Dennoh Club Vol. 7 (Japan) (Track 01).bin / ikap / graphic1 / obj_18 / demo_b0.bas < prev    next >
Encoding:
BASIC Source File  |  1999-06-15  |  2.4 KB  |  84 lines
  1. /*==== -: "OBJ_18B0.SP" ﾃﾞﾓ :- ====
  2. /* ｼﾖｳ ｽﾌﾟﾗｲﾄ ﾌﾟﾚｰﾝｽｳ    ﾎﾝﾀｲ : 12ｺ + 4ｺ
  3. /*            ｺｱ   : 1 ｺ
  4. /*            ｼｬｯﾀｰ : 8 ｺ
  5.  
  6. int i,j
  7. int core_anm,core_gd_anm
  8. int shutter,stn0,stn1
  9. dim int core(15)={&H126,&H126,&H126,&H126,&H127,&H128,&H129,&H12A,
  10.           &H12A,&H12A,&H12A,&H12A,&H129,&H128,&H127,&H126}
  11. dim int core_gd(15)={&H116,&H117,&H118,&H119,&H11A,&H11B,&H11C,&H11D,
  12.           &H13B,&H411D,&H411C,&H411B,&H411A,&H4119,&H4118,&H4117}
  13. dim char stxy(1,15)={124,124,124,124, 125, 126, 127, 128
  14.     ,128,128,128,128, 127, 126, 125, 124
  15.     ,148,148,148,148, 147, 146, 145, 144
  16.     ,144,144,144,144, 145, 146, 147, 148}
  17.  
  18. /*==== -: screen init. :- ====
  19.  
  20. screen 0,2,1,1
  21. sp_init() : sp_disp(1)
  22. palfile_def("obj_18b.pal",1)
  23. spfile_def("obj_18b0.sp",0)
  24.  
  25. /*---- -: ﾎﾝﾀｲ :- ----
  26.  
  27. sp_set( 16,128,112,&H013C,3)
  28. sp_set( 17,112,128,&H014B,3)
  29. sp_set( 18,128,128,&H014C,3)
  30.  
  31. sp_set( 19,144,112,&H413C,3)
  32. sp_set( 20,160,128,&H414B,3)
  33. sp_set( 21,144,128,&H414C,3)
  34.  
  35. sp_set( 22,128,160,&H813C,3)
  36. sp_set( 23,112,144,&H814B,3)
  37. sp_set( 24,128,144,&H814C,3)
  38.  
  39. sp_set( 25,144,160,&HC13C,3)
  40. sp_set( 26,160,144,&HC14B,3)
  41. sp_set( 27,144,144,&HC14C,3)
  42.  
  43. /* ｼｬｯﾀｰ
  44. sp_set( 28,124,124,&H0139,3)
  45. sp_set( 29,148,124,&H0139,3)
  46. sp_set( 30,124,148,&H0139,3)
  47. sp_set( 31,148,148,&H0139,3)
  48.  
  49. /*---- -: ｺｱ :- ----
  50. sp_set(  0,136,136,&H012A,3)
  51.  
  52. /*---- -: ｼｬｯﾀｰ(ｺｱ ﾉ ｶﾞｰﾄﾞ) :- ----
  53. /* ﾏｼﾞﾒ ﾆ 1ｺﾂﾞﾂ ﾋｮｳｼﾞｽﾙﾄ
  54. /* (116,136,&H010E) , (121,136,&H010E) , (126,136,&H010E) , (130,136,&H010F)
  55. /* (156,136,&H410E) , (151,136,&H410E) , (146,136,&H410E) , (142,136,&H410F)
  56. /* (136,116,&H011E) , (136,121,&H011E) , (136,126,&H011E) , (136,130,&H011F)
  57. /* (136,156,&H811E) , (136,151,&H811E) , (136,146,&H811E) , (136,142,&H811F)
  58.  
  59. sp_set(  2,122,136,&H0150,3) : sp_set(  3,130,136,&H0153,3)
  60. sp_set(  4,150,136,&H4150,3) : sp_set(  5,142,136,&H4153,3)
  61. sp_set(  6,136,122,&H0154,3) : sp_set(  7,136,130,&H0157,3)
  62. sp_set(  8,136,150,&H8154,3) : sp_set(  9,136,142,&H8157,3)
  63.  
  64. /*---- -: ﾎﾝﾀｲ 2 :- ----
  65.  
  66. /*==== -: ??? :- ====
  67.  
  68. while inkey$(0)<>chr$(&H1B)
  69.     core_anm=core_anm+1 and 255
  70.     core_gd_anm=core_gd_anm+1 and 63
  71.     shutter=shutter+1 and 255
  72.     stn0=stxy(0,shutter shr 4)
  73.     stn1=stxy(1,shutter shr 4)
  74.  
  75.     v_disp()
  76.  
  77.     sp_set(  0,136,136,core(core_anm shr 4),3)
  78.     sp_set(  1,136,136,core_gd(core_anm shr 4),3)
  79.     sp_set( 28,stn0,stn0,&H0139,3)
  80.     sp_set( 29,stn1,stn0,&H0139,3)
  81.     sp_set( 30,stn0,stn1,&H0139,3)
  82.     sp_set( 31,stn1,stn1,&H0139,3)
  83. endwhile
  84.